COMMENT ⊗   VALID 00009 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00003 00002	αβxCOMMENT  This is the (new) system library of ETV macros.  The
C00005 00003	αβxcomment REF - Horizontal attach and copy
C00007 00004	αβxcomment REF, DON - Reverse a line, reverse an FMUNGE character ↔
C00009 00005	αβxcomment REF - word transposition. ↔
C00012 00006	αβxcomment REF - Find in a list of files.  Take the cursor and point it to the
C00016 00007	αβxcomment REF - Saving a readonly page    SAVE.
C00017 00008	αβxcomment REF - Convert a directory to file names.
C00024 00009	αxxcomment small from caps on this page ↔
C00025 ENDMK
C⊗;
αβxCOMMENT  This is the (new) system library of ETV macros.  The
librarian is REF.  Please send (copiously commented) additions to him.

Most of the macros in this file can be used by loading the appropriate
macro page into your E core image.  This is done with the extended
execute command.  Thus, to get the horizontal attachment and copying
macros on the next page, one would type to E:
<control>xEXE [1,3](3)<carriage return>

Some of these macros, however, might require modification
to suit your purposes.  For example, you probably would want to use the
find macros on page 8 to find stuff in your own files.  Copy that
macro page to your own file, modify the macros to suit yourself, and
then execute that page.

Have fun.
⊗↔
αβxcomment REF - Horizontal attach and copy

These macros are for horizontal attachments.  Calling the macro HA inserts
a mark in the line (a <vt>), and aborts.  Resuming under another
character picks up everything from the original mark to that character,
and places it in the horizontal attachment buffer.  Doing a further
"resume", or calling the macros HD or HAB will deposit that text in a line.

Doing a deposit at the end of a line unfortunately leaves you in line
insert mode.

HC will do a copy, rather than an attach.  HSAVE will save your horizontal
attach buffer in the macro HD1.  Invoking the macro HD will also deposit
your horizontal attach buffer.
⊗↔

αXDEFINE HA⊗↔
αi⊗←αs⊗←αxabort⊗↔β⊗←α⊗↑β⊗↔αβuαs⊗←αdβ⊗↔αβa⊗↔αβe
β⊗αβiα⊗=⊗αs⊗←α⊗↔αaαxred hab⊗↔αβk
αβuαβuαβxjo⊗↔αs⊗←αd
αβxabort⊗↔αβzhd⊗↔
αβ⊗↓

αXDEFINE HD⊗↔
αβzhab⊗↔αβ⊗↓

αXDEFINE HC⊗↔
αi⊗←αs⊗≠αxabort⊗↔
β⊗↔αβuαs⊗←αdβ⊗↔αi⊗αiα⊗=⊗αs⊗←α⊗↔αβaαβxred hab⊗↔αβeα2αdα⊗=⊗↑⊗↑⊗↑αβuαβ3αβxjo⊗↔αβxabort⊗↔
αβzhd⊗↔
αβ⊗↓

αXDEFINE HSAVE⊗↔
αβxatt hab⊗↔αβxred hab1⊗↔αβk
αβ⊗↓

αXDEFINE HD1⊗↔
αβzhab1⊗↔αβ⊗↓

αβxcomment REF, DON - Reverse a line, reverse an FMUNGE character ⊗↔

αβxcomment The macro REVERSe reverses the current "arrow" line.  The line should
have at least two characters on it.
⊗↔

αXDEFINE revup⊗↔
αβ-αβa⊗↔
αβ⊗↓

αβxcomment point the arrow at the line to be reversed ⊗↔
αXDEFINE REVERS⊗↔
αβaαβ1αβxbreak 1⊗↔αxargument attsiz.⊗↔αxset revlng⊗↔
αxargument revlng⊗↔αβzrevup⊗↔αxargument revlng⊗↔αβu
αxargument revlng⊗↔αβxjoin⊗↔
αβ⊗↓

αβxcomment If you're anywhere on a page of an FMUNGE star-dot file,
the macro CHRREV will reverse the character on that page.
⊗↔

αXDEFINE chrrv1⊗↔
⊗↔αzrevers⊗↔
αβ⊗↓

αXDEFINE CHRREV⊗↔
αlαxnonempty⊗↔αβuαxargument lines.⊗↔αxset revlng⊗↔
αxargument line.⊗↔αxsubtract revlng⊗↔αxargument revlng⊗↔αzchrrv1⊗↔
αβ⊗↓

αβxcomment REF - word transposition. ⊗↔

αβxcomment move the cursor under the first of two words in the MIDDLE of
a line to be transposed, then execute ⊗↔

αXDEFINE TRANSP⊗↔
β⊗↔αs α β⊗↔αs α β⊗↔
αβxcomment break the line around the two words⊗↔
αβ-αβaαβuαβe
αβxcomment grab the second and move it up ahead of the first⊗↔
αβuαβ3αβxjo⊗↔
αβxcomment go up a line and re-patch the world⊗↔
α⊗=αd
αβxcomment pick up the last part of the last line, leaving the cursor in a
useful place↔
αβ⊗↓
αβxcomment REF - Find in a list of files.  Take the cursor and point it to the
first of a list of files.  (one to a line) Will continue until either the
next blank line, or until the current string is found. ⊗↔

αβxdefine FLFIND⊗↔
αβxstopo⊗↔
αβzflfnd1⊗↔
αβ⊗↓

αβxdefine FLFND1⊗↔
αβ0αβxnonempty⊗↔
αβxpoint /-r/2p/1l⊗↔
αβzflfnd2⊗↔
αh
⊗↔
αβzflfnd1⊗↔
αβ⊗↓

αβxdefine flfnd2⊗↔
αβv
αβ*
αβxabort⊗↔
αβ⊗↓

αβxcomment REF - Saving a readonly page    SAVE.
	Its often useful to be able to save the world (write out in the
core pages) when in readonly mode, by leaving readonly mode, saving, and
then returning.  This macro turns it into one command.⊗↔

αβxdefine SAVE⊗↔
αβxreadw⊗↔
αβ.
αβxreado⊗↔
αβ⊗↓
αβxcomment REF - Convert a directory to file names.

FIXFIL Takes a page of directory information from WILD or DIR, and converts
it to a list of file names, one to a line.  Useful for editing directories. ⊗↔

αXDEFINE FFIL⊗↔
α6α .α3α [α3α β,α3α ]αK⊗↔⊗↔αβ⊗↓

αXDEFINE FIXFIL⊗↔
αβXSTOPO⊗↔αβLαβ9αβ9αβ9αβZFFIL⊗↔αβLαF αβ\αβ9αβ9αβ9αβ9αβ9⊗↔αβLαβ⊗↓

αxxcomment small from caps on this page ⊗↔

αxxdefine small⊗↔
αβlαfAαβ\aα∞⊗↔
αβlαfBαβ\bα∞⊗↔
αβlαfCαβ\cα∞⊗↔
αβlαfDαβ\dα∞⊗↔
αβlαfEαβ\eα∞⊗↔
αβlαfFαβ\fα∞⊗↔
αβlαfGαβ\gα∞⊗↔
αβlαfHαβ\hα∞⊗↔
αβlαfIαβ\iα∞⊗↔
αβlαfJαβ\jα∞⊗↔
αβlαfKαβ\kα∞⊗↔
αβlαfLαβ\lα∞⊗↔
αβlαfMαβ\mα∞⊗↔
αβlαfNαβ\nα∞⊗↔
αβlαfOαβ\oα∞⊗↔
αβlαfPαβ\pα∞⊗↔
αβlαfQαβ\qα∞⊗↔
αβlαfRαβ\rα∞⊗↔
αβlαfSαβ\sα∞⊗↔
αβlαfTαβ\tα∞⊗↔
αβlαfUαβ\uα∞⊗↔
αβlαfVαβ\vα∞⊗↔
αβlαfWαβ\wα∞⊗↔
αβlαfXαβ\xα∞⊗↔
αβlαfYαβ\yα∞⊗↔
αβlαfZαβ\zα∞⊗↔
αβ⊗↓